home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / GAME PAK 5.int < prev    next >
Text File  |  2012-02-16  |  6KB  |  238 lines
  1. 5 TEXT 
  2. 10 REM : 3 GAMES
  3. 15 CALL -936:VTAB 10
  4. 20 PRINT "WHICH GAME DO YOU WANT?"
  5. 30 PRINT "FOR SPELL 3 LETTER WORD TYPE 1(SOME BUGS!)"
  6. 40 PRINT "FOR SECRET MESSAGE TYPE 2"
  7. 50 PRINT "FOR MATH TYPE 3"
  8. 60 INPUT "WHICH GAME",GAME:IF GAME<1 OR GAME>3 THEN 20
  9. 70 IF GAME=3 THEN 20320
  10. 80 IF GAME=2 THEN 2000
  11. 100 REM :SPELL SIMPLE WORDS ENDING WITH AN "XX" SOUND
  12. 110 GOSUB 710:REM  INIT
  13. 120 INPUT "NEW FILE?",G$
  14. 130 IF G$="YES" THEN GOSUB 850:REM  ADD TO OR MAKE NEW FILE
  15. 140 INPUT "HOW MANY WORDS OF EACH SOUND",REQD
  16. 150 CALL -936
  17. 160 N=1+ RND (MAX)
  18. 170 CHECK$=" "
  19. 180 I0=0:I=0
  20. 190 I0=I0+1
  21. 200 I=I+1
  22. 210 IF A$(I,I)#"'" THEN 200
  23. 220 N=N-1:IF N>0 THEN 190
  24. 230 VTAB 5
  25. 240 TAB 5
  26. 250 PRINT "SPELL ";REQD;" THREE LETTER WORDS WHICH"
  27. 260 TAB 15:PRINT "END WITH AN"
  28. 270 TAB 18: POKE 50,127
  29. 280 PRINT "    "
  30. 290 TAB 18:PRINT "'";
  31. 300 I=I+1:PRINT A$(I,I);:IF A$(I,I)#"'" THEN 300
  32. 310 PRINT :TAB 18:PRINT "    "
  33. 320  POKE 50,255
  34. 330 TAB 17:PRINT "SOUND."
  35. 340 N=1
  36. 350 PRINT "WORD #";N;:INPUT ANS$
  37. 360 IF ANS$="" THEN 350
  38. 370 IF  LEN(ANS$)<>3 THEN 420
  39. 380 FOR M=1 TO  LEN(CHECK$)
  40. 390 IF ANS$(1,1)=CHECK$(M,M) THEN ANS$="XXX":NEXT M
  41. 400 CHECK$( LEN(CHECK$)+1)=ANS$(1,1)
  42. 410 GOSUB 510:REM  TEST ANS$
  43. 420 IF ANS$="CORRECT" THEN 450
  44. 430 FOR K=1 TO 100:X= PEEK (-16336):NEXT K
  45. 440 PRINT "NO GOOD. TRY AGAIN.":GOTO 350
  46. 450 PRINT "VERY GODD."
  47. 460 PRINT "<CTRL-G>":REM   BELL
  48. 470 N=N+1
  49. 480 IF N<1+REQD THEN 350
  50. 490 GOSUB 600
  51. 500 GOTO 150
  52. 510 REM : TEST ANSWER, RETURN ANS$=CORRECT
  53. 520 IF ANS$(2,3)#A$(I-2,I-1) THEN 590
  54. 530 J=1
  55. 540 JJ=A(I0)
  56. 550 IF I0>1 THEN J=A(I0-1)+1
  57. 560 FOR J=J TO JJ
  58. 570 IF B$(J,J)=ANS$(1,1) THEN ANS$="CORRECT"
  59. 580 NEXT J
  60. 590 RETURN 
  61. 600 REM  PRIZE
  62. 610 GR :COLOR= 0
  63. 620 FOR C=1 TO 15
  64. 630 COLOR= C
  65. 640 FOR J=1 TO 19 STEP 2
  66. 650 HLIN 19-J,19+J AT 19-J:HLIN 19-J,19+J AT 19+J
  67. 660 VLIN 19-J,19+J AT 19-J:VLIN 19-J,19+J AT 19+J
  68. 670 NEXT J:PRINT "<CTRL-G>":REM  BELL
  69. 680 NEXT C
  70. 690 TEXT 
  71. 700 RETURN 
  72. 710 DIM A$(100)
  73. 720 DIM G$(10)
  74. 730 MAX=0:I=1
  75. 740 DIM B$(255)
  76. 750 DIM SOUND$(2)
  77. 760 DIM LTR$(20)
  78. 770 DIM ANS$(40)
  79. 780 DIM A(100)
  80. 790 A$="'AT'ET'AN'"
  81. 800 B$="BCFHMPRSTBGLMNPSWBCFMPRTV"
  82. 810 A(1)=9:A(2)=17:A(3)=25
  83. 820 MAX=3
  84. 830 DIM CHECK$(20)
  85. 840 RETURN 
  86. 850 REM  NEW FILE
  87. 860 INPUT "WHICH SOUND?  IF DONE TYPE @.",SOUND$
  88. 870 IF SOUND$="@" THEN 960
  89. 880 A$( LEN(A$)+1)=SOUND$
  90. 890 A$( LEN(A$)+1)="'"
  91. 900 INPUT "FIRST LETTER OF EACH WORD IN ONE STRING?",LTR$
  92. 910 B$( LEN(B$)+1)=LTR$
  93. 920 I=I+1
  94. 930 A(I)= LEN(LTR$)
  95. 940 MAX=MAX+1
  96. 950 GOTO 860
  97. 960 RETURN 
  98. 2000 DIM A$(40):DIM B(40)
  99. 2010 INPUT "LARGEST NUMBER=",MAX
  100. 2020 IF MAX<1 OR MAX>16000 THEN 2010
  101. 2025 INPUT "TYPE 1 LINE SECRET MESSAGE",A$
  102. 2040 II= LEN(A$)
  103. 2050 FOR I=0 TO II:B(I)=0:NEXT I
  104. 2060 VTAB 1
  105. 2070 CALL -958
  106. 2080 TAB 13:PRINT "SECRET MESSAGE"
  107. 2100 X= RND (MAX)
  108. 2110 Y= RND (MAX)
  109. 2120 Z=X+Y
  110. 2125 VTAB 6:CALL -868
  111. 2130 PRINT X;" + ";Y;" = ";
  112. 2140 INPUT ANS
  113. 2150 IF ANS=Z THEN 2160
  114. 2155 SO=-16336:FOR I=1 TO 130:SOU= PEEK (SO)+ PEEK (SO)- PEEK (SO):NEXT I:GOTO 2125
  115. 2160 I= RND (II)+1
  116. 2170 IF B(I)=1 THEN 2160
  117. 2180 B(I)=1
  118. 2190 VTAB 3
  119. 2200 TAB (I+1)
  120. 2210 PRINT A$(I,I)
  121. 2220 C=1
  122. 2230 FOR I=1 TO II:IF B(I)=0 THEN C=0
  123. 2240 NEXT I:IF C=1 THEN 2290
  124. 2250 TAB 1
  125. 2260 VTAB 6
  126. 2270 CALL -868
  127. 2280 GOTO 2100
  128. 2290 VTAB 6:TAB 1
  129. 2300 PRINT "YOU GO IT!"
  130. 2310 END 
  131. 20320 GOSUB 20910:REM  INIT,GET GRADE
  132. 20330 GOSUB 20410:REM  PROBLEM
  133. 20340 IF ANS<>Z THEN GOSUB 20770:REM  BAD
  134. 20350 IF ANS<>Z THEN 20380
  135. 20360 GOSUB 20850:REM  GOOD
  136. 20370 IF B=9 THEN GOSUB 21110:REM   GRADUATE
  137. 20380 IF A=39 AND B>10 THEN GOSUB 21320:REM  REPEAT GRADE
  138. 20390 GOTO 20330
  139. 20400 HLIN 19-J,19+J AT 19-J
  140. 20410 REM : PROBLEM
  141. 20420 OPR= RND (G)
  142. 20430 IF OPR=0 THEN GOTO 20470:REM  ADD
  143. 20440 IF OPR=1 THEN GOTO 20520:REM  SUB
  144. 20450 IF OPR=2 THEN GOTO 20590:REM  TIMES
  145. 20460 GOTO 20650:REM  DIVIDE
  146. 20470 REM :ADD
  147. 20480 OPR$="+"
  148. 20490 N=(G+1)/2:IF N>6 THEN N=6
  149. 20500 X= RND (5^N):Y= RND (5^N):Z=X+Y
  150. 20510 GOTO 20740
  151. 20520 REM : SUBTRASCT
  152. 20530 OPR$="-"
  153. 20540 N=((G-1))/2:IF N>6 THEN N=6
  154. 20550 X= RND (5^N):Y= RND (5^N)
  155. 20560 IF G>4 OR X>Y THEN 20580
  156. 20570 Z=X:X=Y:Y=Z
  157. 20580 Z=X-Y:GOTO 20740
  158. 20590 REM :TIMES
  159. 20600 N=(G-1)/2:IF N>3 THEN N=3
  160. 20610 OPR$="*"
  161. 20620 X= RND (5^N):Y= RND (5^N)
  162. 20630 Z=X*Y
  163. 20640 GOTO 20740
  164. 20650 REM : DIVIDE
  165. 20660 N=(G-2)/2:IF N>3 THEN N=3
  166. 20670 OPR$="/"
  167. 20680 Z= RND (5^N):Y= RND (5^N)
  168. 20690 IF Z>Y THEN 20710
  169. 20700 X=Y:Y=Z:Z=X
  170. 20710 IF Y=0 THEN 20680
  171. 20720 X=Y*Z
  172. 20730 GOTO 20740
  173. 20740 PRINT X;" ";OPR$;" ";Y;" = ";
  174. 20750 INPUT ANS
  175. 20760 RETURN 
  176. 20770 REM :BAD ANSWER
  177. 20780 B=B+2
  178. 20790 COLOR= 11
  179. 20800 PLOT A,B
  180. 20810 B=B-1:A=A+1
  181. 20820 PRINT "CORRECT ANSWER IS ";X;" ";OPR$;" ";Y;" = ";Z
  182. 20830 FOR I=1 TO 100:P= PEEK (-16336):NEXT I
  183. 20840 RETURN 
  184. 20850 REM :GOOD ANSWER
  185. 20860 COLOR= 12
  186. 20870 PLOT A,B
  187. 20880 A=A+1:B=B-1
  188. 20890 FOR I=1 TO 29-B:PRINT "<CTRL-G>":NEXT I:REM  CONT G BELL
  189. 20900 RETURN 
  190. 20910 REM :INIT
  191. 20920 DIM G$(20)
  192. 20930 TEXT 
  193. 20940 CALL -936:CALL -958
  194. 20950 PRINT "THIS IS THE GAME OF MATH."
  195. 20960 PRINT 
  196. 20970 PRINT "IF YOU CAN REACH THE TOP WITNIN 40 TRIES YOU GRADUATE TO THE NEXT GRADE."
  197. 20980 INPUT "WHICH GRADE TO YOU WANT TO START?",G
  198. 20990 IF G<1 THEN 20980
  199. 21000 GOSUB 21020
  200. 21010 RETURN 
  201. 21020 GR :REM  SET UP SCREEN
  202. 21030 COLOR= 2
  203. 21040 FOR I=0 TO 9:HLIN 0,39 AT I:NEXT I
  204. 21050 COLOR= 8
  205. 21060 FOR I=31 TO 39:HLIN 0,39 AT I:NEXT I
  206. 21070 A=0:B=30
  207. 21080 COLOR= 12:PLOT A,B:B=B-1:A=A+1
  208. 21090 PRINT :PRINT :PRINT 
  209. 21100 RETURN 
  210. 21110 REM :GRADUATE
  211. 21120 GR 
  212. 21130 FOR I=1 TO 15
  213. 21140 COLOR= I
  214. 21150 PRINT "<CTRL-G>":REM  CONT G BELL
  215. 21160 FOR J=0 TO 19
  216. 21170 HLIN 19-J,19+J AT J
  217. 21180 HLIN 19-J,19+J AT 19+J
  218. 21190 VLIN 19-J,19+J AT 19-J
  219. 21200 VLIN 19-J,19+J AT 19+J
  220. 21210 NEXT J
  221. 21220 NEXT I
  222. 21230 G=G+1
  223. 21240 TEXT :CALL -936:CALL -958
  224. 21250 PRINT :PRINT :PRINT "YOU HAVE GRADUATED TO GRADE ";G;".":INPUT "CONTINUE?",G$
  225. 21260 INPUT G$
  226. 21270 IF G$#"YES" AND G$#"NO" THEN 21250
  227. 21280 IF G$="NO" THEN 21380
  228. 21290 GR 
  229. 21300 GOSUB 21020
  230. 21310 RETURN 
  231. 21320 REM : DIDN'T PASS
  232. 21330 TEXT 
  233. 21340 FOR I=1 TO 50:PRINT :NEXT I
  234. 21350 PRINT "TOO BAD. THIS GRADE IS PRETTY HARD FOR YOU.  LETS TRY ANOTHER GRADE."
  235. 21360 GOSUB 20950
  236. 21370 RETURN 
  237. 21380 GOSUB 20950:RETURN 
  238.